
Partial Class Budget_BudgetSubNav
    Inherits System.Web.UI.UserControl

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim Participant As New Cdm.DataCore.Entities.Participant()
        Participant = EntityController.GetParticipant()
        If Not Participant Is Nothing Then
            If Not UserAuthorization.HasReadOnlyPermission(Cdm.DataCore.UserSecurity.Permission.PermissionType.CaseSpendingPlan) Then
                HyperLink11.Visible = False
                Image5.Visible = False
            Else
                HyperLink11.Visible = True
                Image5.Visible = True
            End If
        End If
    End Sub
End Class
